home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesutob2.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  38 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* AESUTOB2.S - Object-related utilities 2 of n.
  11. ;*  Non-standard utility functions.
  12. ;*
  13. ;*************************************************************************
  14.          
  15.           .include  "gemfast.sh"        ; Pull in header file.
  16.  
  17. ;-------------------------------------------------------------------------
  18. ; objc_xywh - Return object's xywh into GRECT structure.
  19. ;
  20. ;  void objc_xywh(tree, object, &grect);
  21. ;-------------------------------------------------------------------------
  22.  
  23. _obj_xywh::
  24. _objc_xywh::
  25.           .cargs    #4,.ptree.l,.obj.w,.prect.l
  26.           
  27.           move.l    .prect(sp),a1
  28.           move.l    .ptree(sp),a0
  29.           move.w    .obj(sp),d0
  30.           muls      #OBJ_SIZ,d0
  31.           lea       ob_x(a0,d0.l),a0
  32.           move.l    (a0)+,(a1)+
  33.           move.l    (a0),(a1)
  34.           rts
  35.  
  36. ;         end of code
  37.  
  38.